/ code section
*200 / code begins at 0200o
Main, cla cll / clear AC and Link
tad B / load B
cia / negate it
tad A / add A : AC = A - B
dca C / store at C
hlt / halt
jmp Main / to continue go to Main
/ data section
*0300 / data begins at 0300o
A, 17 / 17 octal = 15 decimal
B, 22 / 22 octal = 18 decimal
C, 0
$Main